/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / xlisp_21.zoo / xl-xs001.bug

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 73 63 65 | 21 6d 69 74 65 6c 21 75 |From sce|!mitel!u|
|00000010| 75 6e 65 74 21 6d 63 76 | 61 78 21 6b 74 68 21 64 |unet!mcv|ax!kth!d|
|00000020| 72 61 6b 65 6e 21 6c 69 | 75 69 64 61 21 6d 69 6b |raken!li|uida!mik|
|00000030| 70 65 20 46 72 69 20 41 | 70 72 20 31 34 20 31 34 |pe Fri A|pr 14 14|
|00000040| 3a 33 35 3a 33 35 20 45 | 44 54 20 31 39 38 39 0a |:35:35 E|DT 1989.|
|00000050| 41 72 74 69 63 6c 65 3a | 20 38 35 20 6f 66 20 63 |Article:| 85 of c|
|00000060| 6f 6d 70 2e 6c 61 6e 67 | 2e 6c 69 73 70 2e 78 0a |omp.lang|.lisp.x.|
|00000070| 50 61 74 68 3a 20 63 6f | 67 6e 6f 73 21 73 63 65 |Path: co|gnos!sce|
|00000080| 21 6d 69 74 65 6c 21 75 | 75 6e 65 74 21 6d 63 76 |!mitel!u|unet!mcv|
|00000090| 61 78 21 6b 74 68 21 64 | 72 61 6b 65 6e 21 6c 69 |ax!kth!d|raken!li|
|000000a0| 75 69 64 61 21 6d 69 6b | 70 65 0a 46 72 6f 6d 3a |uida!mik|pe.From:|
|000000b0| 20 6d 69 6b 70 65 40 73 | 65 6e 69 6c 69 78 2e 69 | mikpe@s|enilix.i|
|000000c0| 64 61 2e 6c 69 75 2e 73 | 65 20 28 4d 69 6b 61 65 |da.liu.s|e (Mikae|
|000000d0| 6c 20 50 65 74 74 65 72 | 73 73 6f 6e 29 0a 4e 65 |l Petter|sson).Ne|
|000000e0| 77 73 67 72 6f 75 70 73 | 3a 20 63 6f 6d 70 2e 6c |wsgroups|: comp.l|
|000000f0| 61 6e 67 2e 6c 69 73 70 | 2e 78 0a 53 75 62 6a 65 |ang.lisp|.x.Subje|
|00000100| 63 74 3a 20 58 7b 73 63 | 68 65 6d 65 2c 6c 69 73 |ct: X{sc|heme,lis|
|00000110| 70 7d 20 62 75 67 73 0a | 53 75 6d 6d 61 72 79 3a |p} bugs.|Summary:|
|00000120| 20 6f 70 65 72 61 74 69 | 6e 67 20 6f 6e 20 63 6c | operati|ng on cl|
|00000130| 6f 73 65 64 20 66 69 6c | 65 73 20 63 61 6e 20 63 |osed fil|es can c|
|00000140| 61 75 73 65 20 4e 55 4c | 4c 20 64 65 72 65 66 65 |ause NUL|L derefe|
|00000150| 72 65 6e 63 65 73 0a 4d | 65 73 73 61 67 65 2d 49 |rences.M|essage-I|
|00000160| 44 3a 20 3c 31 32 34 34 | 40 73 65 6e 69 6c 69 78 |D: <1244|@senilix|
|00000170| 2e 69 64 61 2e 6c 69 75 | 2e 73 65 3e 0a 44 61 74 |.ida.liu|.se>.Dat|
|00000180| 65 3a 20 31 33 20 41 70 | 72 20 38 39 20 30 34 3a |e: 13 Ap|r 89 04:|
|00000190| 31 33 3a 30 37 20 47 4d | 54 0a 4f 72 67 61 6e 69 |13:07 GM|T.Organi|
|000001a0| 7a 61 74 69 6f 6e 3a 20 | 43 49 53 20 44 65 70 74 |zation: |CIS Dept|
|000001b0| 2c 20 55 6e 69 76 20 6f | 66 20 4c 69 6e 6b 6f 70 |, Univ o|f Linkop|
|000001c0| 69 6e 67 2c 20 53 77 65 | 64 65 6e 0a 4c 69 6e 65 |ing, Swe|den.Line|
|000001d0| 73 3a 20 36 31 0a 0a 0a | 49 20 73 74 75 6d 62 6c |s: 61...|I stumbl|
|000001e0| 65 64 20 61 63 72 6f 73 | 73 20 61 20 62 75 67 20 |ed acros|s a bug |
|000001f0| 69 6e 20 58 73 63 68 65 | 6d 65 27 73 20 68 61 6e |in Xsche|me's han|
|00000200| 64 6c 69 6e 67 20 6f 66 | 20 70 6f 72 74 73 2e 20 |dling of| ports. |
|00000210| 49 74 20 74 75 72 6e 73 | 20 6f 75 74 0a 74 68 61 |It turns| out.tha|
|00000220| 74 20 6e 6f 6e 65 20 6f | 66 20 74 68 65 20 66 75 |t none o|f the fu|
|00000230| 6e 63 74 69 6f 6e 73 20 | 74 68 61 74 20 74 61 6b |nctions |that tak|
|00000240| 65 20 70 6f 72 74 73 20 | 61 73 20 61 72 67 75 6d |e ports |as argum|
|00000250| 65 6e 74 73 20 63 68 65 | 63 6b 20 77 68 65 74 68 |ents che|ck wheth|
|00000260| 65 72 0a 74 68 65 20 70 | 6f 72 74 20 69 73 20 6f |er.the p|ort is o|
|00000270| 70 65 6e 20 28 69 2e 65 | 2e 20 69 74 20 68 61 73 |pen (i.e|. it has|
|00000280| 6e 27 74 20 62 65 65 6e | 20 63 6c 6f 73 65 64 29 |n't been| closed)|
|00000290| 20 28 65 78 63 65 70 74 | 20 78 63 6c 6f 73 65 28 | (except| xclose(|
|000002a0| 29 20 69 74 73 65 6c 66 | 21 29 2e 0a 53 65 6e 64 |) itself|!)..Send|
|000002b0| 69 6e 67 20 61 20 63 6c | 6f 73 65 64 20 70 6f 72 |ing a cl|osed por|
|000002c0| 74 20 74 6f 20 65 2e 67 | 2e 20 52 45 41 44 20 63 |t to e.g|. READ c|
|000002d0| 61 75 73 65 73 20 61 20 | 4e 55 4c 4c 20 64 65 72 |auses a |NULL der|
|000002e0| 65 66 65 72 65 6e 63 65 | 20 64 6f 77 6e 20 69 6e |eference| down in|
|000002f0| 0a 74 68 65 20 4f 53 20 | 73 70 65 63 69 66 69 63 |.the OS |specific|
|00000300| 20 73 74 75 66 66 3a 20 | 6f 6e 20 6d 79 20 55 4e | stuff: |on my UN|
|00000310| 49 58 20 6d 61 63 68 69 | 6e 65 20 58 73 63 68 65 |IX machi|ne Xsche|
|00000320| 6d 65 20 64 69 65 73 20 | 77 69 74 68 20 61 20 53 |me dies |with a S|
|00000330| 49 47 53 45 47 56 2e 0a | 54 68 65 20 65 61 73 69 |IGSEGV..|The easi|
|00000340| 65 73 74 20 66 69 78 20 | 28 61 6c 74 68 6f 75 67 |est fix |(althoug|
|00000350| 68 20 69 74 20 68 61 73 | 20 74 68 65 20 73 69 64 |h it has| the sid|
|00000360| 65 2d 65 66 66 65 63 74 | 20 6f 66 20 6d 61 6b 69 |e-effect| of maki|
|00000370| 6e 67 20 50 4f 52 54 3f | 20 72 65 74 75 72 6e 20 |ng PORT?| return |
|00000380| 23 46 0a 66 6f 72 20 63 | 6c 6f 73 65 64 20 70 6f |#F.for c|losed po|
|00000390| 72 74 73 29 20 69 73 20 | 74 6f 20 63 68 61 6e 67 |rts) is |to chang|
|000003a0| 65 20 74 68 65 20 70 6f | 72 74 70 28 29 20 6d 61 |e the po|rtp() ma|
|000003b0| 63 72 6f 20 69 6e 20 78 | 73 63 68 65 6d 65 2e 68 |cro in x|scheme.h|
|000003c0| 20 6c 69 6b 65 20 74 68 | 69 73 3a 0a 0a 2a 2a 2a | like th|is:..***|
|000003d0| 20 78 73 63 68 65 6d 65 | 2e 68 2e 7e 31 7e 09 53 | xscheme|.h.~1~.S|
|000003e0| 75 6e 20 46 65 62 20 31 | 39 20 31 33 3a 32 35 3a |un Feb 1|9 13:25:|
|000003f0| 32 39 20 31 39 38 39 0a | 2d 2d 2d 20 78 73 63 68 |29 1989.|--- xsch|
|00000400| 65 6d 65 2e 68 09 57 65 | 64 20 41 70 72 20 31 32 |eme.h.We|d Apr 12|
|00000410| 20 31 38 3a 34 31 3a 32 | 36 20 31 39 38 39 0a 2a | 18:41:2|6 1989.*|
|00000420| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 2a |********|******.*|
|00000430| 2a 2a 20 32 30 37 2c 32 | 31 33 20 2a 2a 2a 2a 0a |** 207,2|13 ****.|
|00000440| 20 20 23 64 65 66 69 6e | 65 20 63 6f 6e 73 70 28 |  #defin|e consp(|
|00000450| 78 29 09 28 28 78 29 20 | 26 26 20 6e 74 79 70 65 |x).((x) |&& ntype|
|00000460| 28 78 29 20 3d 3d 20 43 | 4f 4e 53 29 0a 20 20 23 |(x) == C|ONS).  #|
|00000470| 64 65 66 69 6e 65 20 73 | 74 72 69 6e 67 70 28 78 |define s|tringp(x|
|00000480| 29 09 28 28 78 29 20 26 | 26 20 6e 74 79 70 65 28 |).((x) &|& ntype(|
|00000490| 78 29 20 3d 3d 20 53 54 | 52 49 4e 47 29 0a 20 20 |x) == ST|RING).  |
|000004a0| 23 64 65 66 69 6e 65 20 | 73 79 6d 62 6f 6c 70 28 |#define |symbolp(|
|000004b0| 78 29 09 28 28 78 29 20 | 26 26 20 6e 74 79 70 65 |x).((x) |&& ntype|
|000004c0| 28 78 29 20 3d 3d 20 53 | 59 4d 42 4f 4c 29 0a 21 |(x) == S|YMBOL).!|
|000004d0| 20 23 64 65 66 69 6e 65 | 20 70 6f 72 74 70 28 78 | #define| portp(x|
|000004e0| 29 09 28 28 78 29 20 26 | 26 20 6e 74 79 70 65 28 |).((x) &|& ntype(|
|000004f0| 78 29 20 3d 3d 20 50 4f | 52 54 29 0a 20 20 23 64 |x) == PO|RT).  #d|
|00000500| 65 66 69 6e 65 20 6f 62 | 6a 65 63 74 70 28 78 29 |efine ob|jectp(x)|
|00000510| 09 28 28 78 29 20 26 26 | 20 6e 74 79 70 65 28 78 |.((x) &&| ntype(x|
|00000520| 29 20 3d 3d 20 4f 42 4a | 45 43 54 29 0a 20 20 23 |) == OBJ|ECT).  #|
|00000530| 64 65 66 69 6e 65 20 66 | 69 78 70 28 78 29 09 09 |define f|ixp(x)..|
|00000540| 28 28 78 29 20 26 26 20 | 6e 74 79 70 65 28 78 29 |((x) && |ntype(x)|
|00000550| 20 3d 3d 20 46 49 58 4e | 55 4d 29 0a 20 20 23 64 | == FIXN|UM).  #d|
|00000560| 65 66 69 6e 65 20 66 6c | 6f 61 74 70 28 78 29 09 |efine fl|oatp(x).|
|00000570| 28 28 78 29 20 26 26 20 | 6e 74 79 70 65 28 78 29 |((x) && |ntype(x)|
|00000580| 20 3d 3d 20 46 4c 4f 4e | 55 4d 29 0a 2d 2d 2d 20 | == FLON|UM).--- |
|00000590| 32 30 37 2c 32 31 33 20 | 2d 2d 2d 2d 0a 20 20 23 |207,213 |----.  #|
|000005a0| 64 65 66 69 6e 65 20 63 | 6f 6e 73 70 28 78 29 09 |define c|onsp(x).|
|000005b0| 28 28 78 29 20 26 26 20 | 6e 74 79 70 65 28 78 29 |((x) && |ntype(x)|
|000005c0| 20 3d 3d 20 43 4f 4e 53 | 29 0a 20 20 23 64 65 66 | == CONS|).  #def|
|000005d0| 69 6e 65 20 73 74 72 69 | 6e 67 70 28 78 29 09 28 |ine stri|ngp(x).(|
|000005e0| 28 78 29 20 26 26 20 6e | 74 79 70 65 28 78 29 20 |(x) && n|type(x) |
|000005f0| 3d 3d 20 53 54 52 49 4e | 47 29 0a 20 20 23 64 65 |== STRIN|G).  #de|
|00000600| 66 69 6e 65 20 73 79 6d | 62 6f 6c 70 28 78 29 09 |fine sym|bolp(x).|
|00000610| 28 28 78 29 20 26 26 20 | 6e 74 79 70 65 28 78 29 |((x) && |ntype(x)|
|00000620| 20 3d 3d 20 53 59 4d 42 | 4f 4c 29 0a 21 20 23 64 | == SYMB|OL).! #d|
|00000630| 65 66 69 6e 65 20 70 6f | 72 74 70 28 78 29 09 28 |efine po|rtp(x).(|
|00000640| 28 78 29 20 26 26 20 6e | 74 79 70 65 28 78 29 20 |(x) && n|type(x) |
|00000650| 3d 3d 20 50 4f 52 54 20 | 26 26 20 67 65 74 66 69 |== PORT |&& getfi|
|00000660| 6c 65 28 78 29 29 0a 20 | 20 23 64 65 66 69 6e 65 |le(x)). | #define|
|00000670| 20 6f 62 6a 65 63 74 70 | 28 78 29 09 28 28 78 29 | objectp|(x).((x)|
|00000680| 20 26 26 20 6e 74 79 70 | 65 28 78 29 20 3d 3d 20 | && ntyp|e(x) == |
|00000690| 4f 42 4a 45 43 54 29 0a | 20 20 23 64 65 66 69 6e |OBJECT).|  #defin|
|000006a0| 65 20 66 69 78 70 28 78 | 29 09 09 28 28 78 29 20 |e fixp(x|)..((x) |
|000006b0| 26 26 20 6e 74 79 70 65 | 28 78 29 20 3d 3d 20 46 |&& ntype|(x) == F|
|000006c0| 49 58 4e 55 4d 29 0a 20 | 20 23 64 65 66 69 6e 65 |IXNUM). | #define|
|000006d0| 20 66 6c 6f 61 74 70 28 | 78 29 09 28 28 78 29 20 | floatp(|x).((x) |
|000006e0| 26 26 20 6e 74 79 70 65 | 28 78 29 20 3d 3d 20 46 |&& ntype|(x) == F|
|000006f0| 4c 4f 4e 55 4d 29 0a 0a | 0a 49 20 74 68 65 6e 20 |LONUM)..|.I then |
|00000700| 77 65 6e 74 20 74 6f 20 | 73 65 65 20 69 66 20 58 |went to |see if X|
|00000710| 6c 69 73 70 20 77 61 73 | 20 65 71 75 61 6c 6c 79 |lisp was| equally|
|00000720| 20 66 72 61 67 69 6c 65 | 2c 20 62 75 74 20 6c 75 | fragile|, but lu|
|00000730| 63 6b 69 6c 79 20 69 74 | 20 77 61 73 6e 27 74 2e |ckily it| wasn't.|
|00000740| 0a 4f 6e 6c 79 20 78 66 | 6f 72 6d 61 74 28 29 20 |.Only xf|ormat() |
|00000750| 28 64 75 65 20 74 6f 20 | 69 74 27 73 20 63 68 65 |(due to |it's che|
|00000760| 63 6b 69 6e 67 20 66 6f | 72 20 4e 49 4c 2c 20 54 |cking fo|r NIL, T|
|00000770| 20 61 6e 64 20 75 6e 6e | 61 6d 65 64 20 73 74 72 | and unn|amed str|
|00000780| 65 61 6d 73 29 0a 6d 69 | 73 73 65 73 20 74 6f 20 |eams).mi|sses to |
|00000790| 63 68 65 63 6b 20 74 68 | 61 74 20 74 68 65 20 66 |check th|at the f|
|000007a0| 69 6c 65 20 69 73 20 6f | 70 65 6e 2e 0a 54 68 65 |ile is o|pen..The|
|000007b0| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 70 61 74 63 68 | followi|ng patch|
|000007c0| 20 66 69 78 65 73 20 74 | 68 61 74 20 70 72 6f 62 | fixes t|hat prob|
|000007d0| 6c 65 6d 20 28 79 6f 75 | 72 20 6c 69 6e 65 20 6e |lem (you|r line n|
|000007e0| 75 6d 62 65 72 73 20 6d | 61 79 20 76 61 72 79 29 |umbers m|ay vary)|
|000007f0| 3a 0a 0a 2a 2a 2a 20 78 | 6c 66 69 6f 2e 63 2e 7e |:..*** x|lfio.c.~|
|00000800| 31 7e 09 4d 6f 6e 20 44 | 65 63 20 31 39 20 30 36 |1~.Mon D|ec 19 06|
|00000810| 3a 30 37 3a 33 30 20 31 | 39 38 38 0a 2d 2d 2d 20 |:07:30 1|988.--- |
|00000820| 78 6c 66 69 6f 2e 63 09 | 57 65 64 20 41 70 72 20 |xlfio.c.|Wed Apr |
|00000830| 31 32 20 32 30 3a 33 35 | 3a 34 30 20 31 39 38 39 |12 20:35|:40 1989|
|00000840| 0a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.*******|********|
|00000850| 0a 2a 2a 2a 20 34 31 30 | 2c 34 31 36 20 2a 2a 2a |.*** 410|,416 ***|
|00000860| 2a 0a 20 20 20 20 20 20 | 65 6c 73 65 20 7b 0a 20 |*.      |else {. |
|00000870| 20 09 69 66 20 28 73 74 | 72 65 61 6d 20 3d 3d 20 | .if (st|ream == |
|00000880| 74 72 75 65 29 0a 20 20 | 09 20 20 20 20 73 74 72 |true).  |.    str|
|00000890| 65 61 6d 20 3d 20 67 65 | 74 76 61 6c 75 65 28 73 |eam = ge|tvalue(s|
|000008a0| 5f 73 74 64 6f 75 74 29 | 3b 0a 21 20 09 65 6c 73 |_stdout)|;.! .els|
|000008b0| 65 20 69 66 20 28 21 73 | 74 72 65 61 6d 70 28 73 |e if (!s|treamp(s|
|000008c0| 74 72 65 61 6d 29 20 26 | 26 20 21 75 73 74 72 65 |tream) &|& !ustre|
|000008d0| 61 6d 70 28 73 74 72 65 | 61 6d 29 29 0a 20 20 09 |amp(stre|am)).  .|
|000008e0| 20 20 20 20 78 6c 62 61 | 64 74 79 70 65 28 73 74 |    xlba|dtype(st|
|000008f0| 72 65 61 6d 29 3b 0a 20 | 20 09 76 61 6c 20 3d 20 |ream);. | .val = |
|00000900| 4e 49 4c 3b 0a 20 20 20 | 20 20 20 7d 0a 2d 2d 2d |NIL;.   |   }.---|
|00000910| 20 34 31 30 2c 34 32 30 | 20 2d 2d 2d 2d 0a 20 20 | 410,420| ----.  |
|00000920| 20 20 20 20 65 6c 73 65 | 20 7b 0a 20 20 09 69 66 |    else| {.  .if|
|00000930| 20 28 73 74 72 65 61 6d | 20 3d 3d 20 74 72 75 65 | (stream| == true|
|00000940| 29 0a 20 20 09 20 20 20 | 20 73 74 72 65 61 6d 20 |).  .   | stream |
|00000950| 3d 20 67 65 74 76 61 6c | 75 65 28 73 5f 73 74 64 |= getval|ue(s_std|
|00000960| 6f 75 74 29 3b 0a 21 20 | 09 65 6c 73 65 20 69 66 |out);.! |.else if|
|00000970| 20 28 73 74 72 65 61 6d | 70 28 73 74 72 65 61 6d | (stream|p(stream|
|00000980| 29 29 20 7b 09 2f 2a 20 | 63 6f 70 69 65 64 20 66 |)) {./* |copied f|
|00000990| 72 6f 6d 20 78 6c 67 65 | 74 66 69 6c 65 28 29 20 |rom xlge|tfile() |
|000009a0| 2a 2f 0a 21 20 09 20 20 | 20 20 69 66 20 28 67 65 |*/.! .  |  if (ge|
|000009b0| 74 66 69 6c 65 28 73 74 | 72 65 61 6d 29 20 3d 3d |tfile(st|ream) ==|
|000009c0| 20 4e 55 4c 4c 29 0a 21 | 20 09 09 78 6c 66 61 69 | NULL).!| ..xlfai|
|000009d0| 6c 28 22 66 69 6c 65 20 | 6e 6f 74 20 6f 70 65 6e |l("file |not open|
|000009e0| 22 29 3b 0a 21 20 09 7d | 0a 21 20 09 65 6c 73 65 |");.! .}|.! .else|
|000009f0| 20 69 66 20 28 21 75 73 | 74 72 65 61 6d 70 28 73 | if (!us|treamp(s|
|00000a00| 74 72 65 61 6d 29 29 0a | 20 20 09 20 20 20 20 78 |tream)).|  .    x|
|00000a10| 6c 62 61 64 74 79 70 65 | 28 73 74 72 65 61 6d 29 |lbadtype|(stream)|
|00000a20| 3b 0a 20 20 09 76 61 6c | 20 3d 20 4e 49 4c 3b 0a |;.  .val| = NIL;.|
|00000a30| 20 20 20 20 20 20 7d 0a | 2d 2d 20 0a 4d 69 6b 61 |      }.|-- .Mika|
|00000a40| 65 6c 20 50 65 74 74 65 | 72 73 73 6f 6e 2c 20 44 |el Pette|rsson, D|
|00000a50| 65 70 74 20 6f 66 20 43 | 6f 6d 70 20 26 20 49 6e |ept of C|omp & In|
|00000a60| 66 6f 20 53 63 69 2c 20 | 55 6e 69 76 65 72 73 69 |fo Sci, |Universi|
|00000a70| 74 79 20 6f 66 20 4c 69 | 6e 6b 6f 70 69 6e 67 2c |ty of Li|nkoping,|
|00000a80| 20 53 77 65 64 65 6e 0a | 65 6d 61 69 6c 3a 20 6d | Sweden.|email: m|
|00000a90| 70 65 40 69 64 61 2e 6c | 69 75 2e 73 65 20 20 6f |pe@ida.l|iu.se  o|
|00000aa0| 72 20 20 2e 2e 21 7b 6d | 63 76 61 78 2c 6d 75 6e |r  ..!{m|cvax,mun|
|00000ab0| 6e 61 72 69 2c 75 75 6e | 65 74 7d 21 65 6e 65 61 |nari,uun|et}!enea|
|00000ac0| 21 6c 69 75 69 64 61 21 | 6d 70 65 0a 0a 0a       |!liuida!|mpe...  |
+--------+-------------------------+-------------------------+--------+--------+